﻿Public Class BECurso
  Private _strDiretorio As String

  Private _id As Integer
  Private _titulo As String
  Private _ementa As String
  Private _alunos As IList(Of BEAluno)
  Private _prova As BEProva
  Private _ativo As Integer
  Private _dataCadastro As Date
  Private _qtdeAlunos As Integer

  Sub New()
    _id = 0
    _titulo = ""
    _ementa = ""
    _prova = New BEProva(0)
    _ativo = -1
    _dataCadastro = Nothing
  End Sub

  Sub New(ByVal intId As Integer)
    Me.New()
    _id = intId
  End Sub

  Public Property Diretorio() As String
    Get
      Return _strDiretorio
    End Get
    Set(ByVal value As String)
      If Not value.EndsWith("\") Then value &= "\"
      _strDiretorio = value
    End Set
  End Property

  Public Property Ativo() As Integer
    Get
      Return _ativo
    End Get
    Set(ByVal value As Integer)
      _ativo = value
    End Set
  End Property

  Public Property DataCadastro() As Date
    Get
      Return _dataCadastro
    End Get
    Set(ByVal value As Date)
      _dataCadastro = value
    End Set
  End Property

  Public Property Prova() As BEProva
    Get
      Return _prova
    End Get
    Set(ByVal value As BEProva)
      _prova = value
    End Set
  End Property

  Public Property Alunos() As List(Of BEAluno)
    Get
      Return _alunos
    End Get
    Set(ByVal value As List(Of BEAluno))
      _alunos = value
    End Set
  End Property

  Public Property Ementa() As String
    Get
      Return _ementa
    End Get
    Set(ByVal value As String)
      _ementa = value
    End Set
  End Property

  Public Property Id() As Integer
    Get
      Return _id
    End Get
    Set(ByVal value As Integer)
      _id = value

    End Set
  End Property

  Public Property Titulo() As String
    Get
      Return _titulo

    End Get
    Set(ByVal value As String)
      _titulo = value

    End Set
  End Property

  Public Property QtdeAlunos() As Integer
    Get
      Return _qtdeAlunos
    End Get
    Set(ByVal value As Integer)
      _qtdeAlunos = value

    End Set
  End Property

End Class
